perm filename FACT[P,JRA] blob sn#362776 filedate 1978-06-22 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	    title fact
C00003 ENDMK
C⊗;
    title fact
ac1←1
ac2←2
p←14


fact:	jumpe ac1,f1
	subi ac1,1
	push p,ac1
	pushj p,fact
	pop p,ac2
	imul ac1,ac2
	popj p,0

f1:	movei ac1,0
	popj p,0


start:  movei ac1,0
	pushj p,fact
	jrst start
	end